{
 "cells": [
  {
   "cell_type": "markdown",
   "id": "governmental-magazine",
   "metadata": {},
   "source": [
    "# Assignment I"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "id": "applicable-identifier",
   "metadata": {},
   "outputs": [],
   "source": [
    "data=c(74.3,78.8,68.8,78.0,70.4,80.5,80.5,69.7,71.2,73.5,79.5,75.6,75.0,78.8,72.0,72.0,72.0,74.3,71.2,72.0,75.0,73.5,78.8,74.3,75.8,65.0,74.3,71.2,69.7,68.0,73.5,75.0,72.0,64.3,75.8,80.3,69.7,74.3,73.5,73.5,75.8,75.8,68.8,76.5,70.4,71.2,81.2,75.0,70.4,68.0,70.4,72.0,76.5,74.3,76.5,77.6,67.3,72.0,75.0,74.3,73.5,79.5,73.5,74.7,65.0,76.5,81.6,75.4,72.7,72.7,67.2,76.5,72.7,70.4,77.2,68.8,67.3,67.3,67.3,72.7,75.8,73.5,75.0,73.5,73.5,73.5,72.7,81.6,70.3,74.3,73.5,79.5,70.4,76.5,72.7,77.2,84.3,75.0,76.5,70.4)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "id": "conditional-desert",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "73.668"
      ],
      "text/latex": [
       "73.668"
      ],
      "text/markdown": [
       "73.668"
      ],
      "text/plain": [
       "[1] 73.668"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "mean(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "id": "criminal-wednesday",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "15.5151272727273"
      ],
      "text/latex": [
       "15.5151272727273"
      ],
      "text/markdown": [
       "15.5151272727273"
      ],
      "text/plain": [
       "[1] 15.51513"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "var(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "id": "looking-demographic",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "73.5"
      ],
      "text/latex": [
       "73.5"
      ],
      "text/markdown": [
       "73.5"
      ],
      "text/plain": [
       "[1] 73.5"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "median(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "id": "national-cartridge",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<strong>25%:</strong> 71.2"
      ],
      "text/latex": [
       "\\textbf{25\\textbackslash{}\\%:} 71.2"
      ],
      "text/markdown": [
       "**25%:** 71.2"
      ],
      "text/plain": [
       " 25% \n",
       "71.2 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "quantile(data,0.25)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "id": "rotary-rally",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<strong>60%:</strong> 74.3"
      ],
      "text/latex": [
       "\\textbf{60\\textbackslash{}\\%:} 74.3"
      ],
      "text/markdown": [
       "**60%:** 74.3"
      ],
      "text/plain": [
       " 60% \n",
       "74.3 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "quantile(data,.6)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "id": "nervous-dragon",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>64.3</li><li>84.3</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 64.3\n",
       "\\item 84.3\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 64.3\n",
       "2. 84.3\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 64.3 84.3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "range(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "id": "chinese-steps",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0.0534685974106827"
      ],
      "text/latex": [
       "0.0534685974106827"
      ],
      "text/markdown": [
       "0.0534685974106827"
      ],
      "text/plain": [
       "[1] 0.0534686"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sd(data)/mean(data) # coefficient of variation"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "id": "peripheral-fisher",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrKzs7O9vb3Hx8fQ0NDT09PZ2dnh4eHp6enw8PD///+LHsfFAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2dDWPiqhJAsW7b1+5tV///n30mMQlR80WGYYBz7t3W\nahhwyDFAororABzGpW4AQAkgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQg\nACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIg\nEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAJUIJJzzZP8ODn3fvv9486TR8/uJ0mrsqZL\naX9j+GvgPUKdfQe+akbUirdRi0jvt59tP7y578mj3+4tTbNyZlmkn1OEvWrowFfNiFnxRmoR\n6fbjX/PHX+cuk0cvzv1N0qycmYo0+6hwlf/WKopS8UYqEqn94+1hZNeM7Tgk7SWNSKv3IdJx\nbiPo00d3rPn75zYG+O3vfb806XUt1+s/5z7bn41O5/ZF7vPFSx0s82po9/PHdXnvc32765bh\n830KOnRF8/hP+3r22wzX2sdvvy/v7vR1/T27kz9AGCKMQR/DjWGGbcbAehQi0qnN4akx6aPL\nZ2PSub3TF+mrG8jdfn03P76u7WDvK23j8+OFSN9dit3PuD/fe+Kz2bDtird+81uf/Ln+DCXu\nd93ubO8YTRojPIg09qwXpt/GC6yYEs3KovHZZO2rzfjNi/Pl1gPnVpfbzbM/tPvTGXYb4Z1+\nXTem+206FXbhPO65PTUH9p82p/dc/zbpv5zbjH83Y4DL0BW3zrl0yz7tA81d703P3X5+u3Go\n7UeYHI/8np2GaR717lFMiWZl0Ti3GWxT16ly+fPb3vvTvT55Oe6e8O9w1GoeYpK0kxciufHA\nfs/1e5/+97ZX/K74mYTqVxKGn/1jfoSJSH7PTsM8BNajDJEee3W4d/jl32747MccaaeomfJC\npHZUdv57f7T5depTfnrZFTcuX+/+eMH/eZ2JMNTv/XoI49+jRxn70H6RmkPSZbIZbGdImZfb\nrzfXDdoecv2U/qHwn4dOexLptX6PNTyG8e/Ro4x96Dn53s2XIjW5/ngqAdt4JdL1+u+zXUTY\nekT6uGn3fXELIm06Ij2F8e/Ro4x96DwuYXej8XaO9Gd+jvS3XfPp50iqs9ISeC1Se15h/Hth\njuQFWRJpdo70HO751RKRAvhscv3Tvhz2q3Zv3cLN5XJ+6NzWnpN7u5yGVbt0V2hlyguR3pp9\n+9dftfuZX7Vry56aEh9LIv3Mrdr5PfsUxr9HjzJEurTjc3dqDkv3cw/NwpB3tuGe1u/uLMVn\n8+t7OI/0vRQbnnkh0q8b8t6cDm1em+490Y6g266YivTp7t3zb04kP8LUC69nvTD3ir179ChD\npFvybiq9d4n7ex6vbGju9Hvv0l/Z0Jw6Gq5suMyGhZe8Gtr9ez/d8/7vz/3UXNMT5/vp1Y/G\nh+lI8Os2Jvi6NPv+nEhehIcDzNizXpi+4vEePUoRaSvnF9faMUXSouBTdrWJ9HT195WrvxVw\n7Tzna1gpLY/aROL9SEn4vM+gTsWOoqsTiXfIJuG7OXH39lGsR/WJBBADRAIQAJEABEAkAAEQ\nCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEA\nBEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABNgt0v3T0BEQwGOvEO7pxtMWsJHgTgN7\n7OxN9/LmkYj1QqJKApGSQaJKApGSQaJKIsIcKbgtlUGiSkJ+1Y79YyMkqiTke5P9o2dlXY5E\nlQQiRWNthZtElQQihbPiydq5onoSVQPhvTktOZ5m/F/D7R5+3+jz8fJ3cOqLoaCT1RyRQlk/\n4jC0W8P9N0N+uUGkUA5fBFRLohZAJNWIRjk6AqkmUfMgkmpEg7QKHRzJV5GoZRBJNaI9RKbD\nNSRqhXpF2jAByC8HO+ietczCUtGJ2ka9Im3YPr8cbOfuj8wibcmJ2kjFIq0XyC8HmxnsYWgn\nQ80irZbILwebkT1jWHCitlK1SPoRrSB8zr3cRG0GkVQjGkH62pViE7UdRFKNmJi7POLXgBWX\nqP0gkmrEtPT6iF9NWVqiAkAk1YhJGfWRvii5sESFgEiqEZMS7+L+whIVAiKpRkxLtHfHlJao\nABBJNWJiYr3LrLhE7QeRVCMWColCJN2IiYj9fudiEhUOIqlGTEP0Tw4oJVEHQCTViEmI/xkc\n8YJHWWSMASKpRkxCtFXvsYY4Yb3A5rsCkVQjpiHboZ17edMkiKQaMRG5LjYgUgoQ6QG9mQUi\nIZJuRE0U5+jMkRBJN6IimqtdrNohkm5ELW573uQS1UznSBmBSKoRlWjVKWFoN1uh1kvEZhBJ\nNaIGwx6W/2JD+2SWq7DSR4ikGlEBvQGdV2fMwPf3ImpXvRNEUo0YnyRDnsjL326hCit9hEiq\nEeOTZOoQ+zySQyRFdre4/6RRuYgpGSYTCSbg0U/IOkTSY2+LXd8/swVzysHoT4KFLIUTsoik\nxs4We1NY6520gbRLwRFX7daqsNJHiLRQMqMcKJ59fVW7eo0Wqp6ASAslc8pB0nOTxYnkZpkt\nUa1Ihc2RUkyNxrpLq3q/FhWLVNiqXUoQqWqREkQsFERCJN2IhYJIiKQbsVAQCZGeS9q7RN88\niIRIuhELBZEQSTdioSASIulGLBREqlqk1ZlQfjlIREUizVKvSKvXQyLSVioSaf8DURoYk5Br\n7ZZLZpEDC2uLiIRISyVzyIGJVXpEQqSlkhnkwMb5LkSqWKQy5khJ34Y0tqK0qhFpV4ESVu0s\nHJAQqW6REkSMgAGPEAmRlCMWCiIhkm7EQkEkRNKNWCiIhEi6EQsFkRBJN2KhIBIi6UYUx8Ka\nHSIhknZEaUycRUIkRNKOKEvyKxqGhpRWNSIZjyhK+kuDhpaUVjUiGY8oh4VL7AYQCZF0I4ph\nyiNEQiTliFKY0giREEk7ohS2PIqWqC5ugiv0Ecl4RDEMWXSNLNL4Q69qRDIeUQ5LHkUVyS1X\ngUji1CWSKRAJkXQjFkpAojYNTREpBYiUjLBErbvUbOGWa0AkcRApGaGJ2nBY6jZh1U4RRErG\ngUQdXTRBJHEQKRnBiWo0ClEp9oeQIZLxiIVybI50KM2IJM7eFvdfaq49/i6QY6t2iGSL3SL1\nZZRXhAok2nmk9SEcIomzs8XJzlEcx9RVDQ3R2rMeGJHEqUYkW9fZNQQ1Z3lZe2tkRBKnCpGa\nM5SWrvvuCGnNxoWG1XO2AVWvg0g7t89tjmTjyyeeCFlsCC96tOotURFpT4Hsvo3CpEVXRKpc\npAQRD2LUI0RCJOWIRzEoUUPEOVKMqjdERSTbEQ9j0qPAVTuRVwVEEie8xdOSNufzpkmYKEQS\np4ojkk0QCZF0IxZK0BxJ5qiPSOJ4LRYameWXg0QcWLVLUPWWqIjkX1e84lJ+55GsgkgFiuRe\n3bmwfVZXNhgFkQoUKWDzjK61swkiIdJSyfxykIjwE7JJqt4QFZFCNkekg4QckVi1s0rI1d/L\nBfPLQSI4j1SmSBsviGTVTgpEKlMk2xdEFkjotXYCGUYkcfwWt28kFY2YFuOX/QUuNjizL3aI\nNPOXRMSEWL+ANnD5u/+nXPWWqIh0v13UEcn8peiIVKhIhc2R/E9qsNKmCYhUpkgbV+12REyM\nVYF6mCOVKZLdiKHY9oh3yCKScsRC4TxSgSIJLt7ll4NEIFKBIm1/P9LmiLAC19qVKNL1yjtk\nlQlPlNE+QiTjEQvlQKI4IpkDkZKBSIWKZHr8XSCIVKZIUm3PLweJQCRE2hYRFjmwapeg6i1R\nBUWaJUrLBUCkZHAeqaRDFSIlI16iEr2LGZGebgpFhCWOnJBdHOO4pxsCVW8AkbpbrNrpEnj1\n92rJDa+NiCQO55GSEfh+pNWiiJQCREoGIhUo0t72bRmhwzKxRGKOlAJfpB2NRKTjxJojsWqX\ngp0ibVg2MvtUrRGUqFreIVu6SBuGgmafqjXUExX7+gBE2jO0c2ubmn2q1uDKhqpF6lQyLJLd\ny7EeCB3aCWQYkcQJWmxY7MvET9XyhY1TAhcbll/GrgnnsYi09dqTsZRZkWxfIjwhcPm7/3ck\nMCKJU9oJ2TyuuW+JJtJ6ZEQSpzSRyh7abRTp8ONhIJJASTuHgeQN2EqsOVKkqjdERSTbEQuF\nE7KIpBuxUDiPhEi6EQvlwEWrCareEhWR9hRIc0FkgSBSzSK5pxtHI1YLIlUsknt580jEeglc\ntUtV9YaoiBSyOSIdJOSIZPpzNRApaHNrImVz/qiHVbuKRbI7RzJwKngniFSzSFZX7UxcVLGP\n4Ncw/ao3RkUk2xE31WrnGqWtBIkk8+QQSZxSRKpgaIdIiKRBbh4hEiIpRywUREIk3YiFgkiI\npBuxUBAJkXQjFspukeQWJhFJHERKBidkEUk3YqEgEiLpRiwUREIk3YiFYlwkN8tsCUSyHbFQ\nrIu0e19GJOMRCwWREEk34nJ1ZlO7BiIhkm7Exdqyu1Z1AJEQSTfiUmU5vW/iAURCJN2IS5Vl\n+D6kHkRCJN2Ii7XlJ1APIiGSbsTl6symdg1EQiTdiIWCSIikG7FQshVpFg2R9hM9m126MohY\nKNmKlNkD0bPZpSuDiK8qKUBXRKpapOFYOVdSo+EZr9WNIFLNIjXbu8U3PSs0PMvTRk8gUsUi\neUej5CJleh52AJEQqfnN0O4gsZ5BF3cxRYgkTqBItxspRWKxYS3u4ugbkeQJmSN1N5KKVAIx\nRRJYEDKqxf4HhNK6lq7gAoh0EHWR9s0rjWqx/wHxBL9OVwYRC4UjEiLpRiyUaCK5fgLLHOk/\nRCqfiInqBm+s2rUPiGV1OV1CJQs4r6MN55EQSTdioSASIulGLBREQiTdiIWCSFWLtDoT0rlE\nSKGS2CBSzSKtno/Vumg1fi2xQaSKRXIvbx6JuLP+7m0cRZiESIi0VDJmwzuBEEmjaqNa7H8g\neja7dAVvnkCk3qAiPEKkmkVKO0cq66wvItUsUtpVu0IU6kCkqkVKENEPXo5HiIRIyhELBZEQ\nSTlimW4iEiKpRixqYuSBSIikGbGYVbpHEAmRNCMm+Uh0DWyINP/h80n3fsEH1FNqNWJZ+owY\nESnpTq7xgHpK7UYs0iNEQiSdiIX6M4BIiKQRsdQR3QAiIZJCxNKWFp5BJERSiFjoUp0HIiGS\nRsRiBepBJESKGnH4SsCyPUIkRIoasfgjUQ8iIVLEiAVPih5AJESKGLH4NYYBREKkmBHLN+gO\nIiFS1IiVeIRIiKQcsVAQCZF0IxYKIiFSxIi1DOwQSesB9ZSaiFjNUgMiaT2gntKNBaJ+rl0N\ny949iFSzSO7pRlDEOVkQSbtqo3u/4AOzSZjlYEr39sCBiPOtrccjREot0u4SG1O6twfCIy55\nX41HiIRIiyU3iyR5YM0RRKpYpKNzpLsmNfkyCyLVLNKxVbuhIB4hktYDs0nYXWJjSoVYiFjX\n0G2NeInY82JndO8XfGA2CbtLLOY8pFBoxBpnQvNES8Gu4bfRvV/wgdkk7C6xKelibBraQTyR\n9i0IGd37BR+YzdPuEhuzfqjkeKj5X8P872v7+1aC38GpX2ZWpJfjgeUV1Do5mHUhOORsJOER\nCcRBpGQknCOBOIiUjISrdiCOsau/a4JElUSiq7+BRJVFmqu/4UqiygKRkkGiSgKRkkGiSiLC\nHAk2Etxp0UidkXQcT11orrXrlSmbXVFdjjU0Zem0lYtE0K83OxsQKXppRNItm11RXRApYQT9\nerOzAZGil0Yk3bLZFdUFkRJG0K83OxsQKXppRNItm11RXRApYQT9erOzAZGil0Yk3bLZFdUF\nkRJG0K83OxsQKXrpakUCKApEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAE\nQCQAARAJQABEAhBAXyQ3fLH53o/H8z5Rb+8H641FAz6Vb9h+/8f5hT9ZZY409EC/XA92zaTO\noAxL9ZB653YZC6/ZDUHCi+4vFljrpKhljvbKoX65HkrSge55LH0E7R52w88DIo1B9tcdVqr5\nub/Ww09WC4GGHuiX65F9+UD3XCV7KI1I4RV7Gd89zAqrVkIk4x4d7pVD/XI94pGUSId7SF+k\ncTQdNKQdfgSKFDAF8P7trHUoan2GdLBXZEQK3yPCD4diPaQu0uR5h4+z9hf2Cu0t6YJ3E7+o\nYZMO9sqhfrke6Zq2SHj3XOV6KN0cKaj6wyIFVCtwRAqoVZWDvSIjUmDdMkekwMqngTTJTySJ\nOdL+WnXJWCShOVJY5U+R9EAkiyBSWOVPkfSQeN5hs5XQohIihe5hWhxt6IF+OVpaSKTDPaTe\nucOgdDo63V44sGx40QMtPvRkNTnY0AP9IlI6vOliPaTfu0eu6BiPwfsv1jlQ9PglQmGXryhy\n8DqbpzB6pYUuETraQ7a7FyATEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQC\nEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAAB\nEAlAAEQCEACRAARAJEiKm7mdGzm3HQoAkQAEQKRcsP5teRXTfCWRu99w/c/+V2Zk2OS9WP+2\nvGrprLmOX5k3fHVehv2VX4v346p4ltnx/P2t7prvACK/Fu8HkUwyUaYb2129PzIjvxYHUMWT\nzI5RpN6ifr6UY4/l1+L9cEQyCUO73EAkkyBSZrBqZ5R+1e4+ovN6ijmSQXJ9iauA/jySu98Y\nzybl1135tRjAIIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKA\nAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiA\nSAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgE\nIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAAC\nIBKAAIgEIAAiAQhgViTn3Fd/I6i099fvx5tzbx+/Dxu9uNt1vH1cXtf8vr8p1XPP6en939ZN\nc0y/ZZFO/Y2g0uMfn/f+cR+TbV7d3d/lTpcXNf+czKbLMGNOV03KOP1mm+b6Q9JhkQZhnPv0\nNnl593jfx4uag5pSPWNOVw8oGaffbNNcf0g6KtLldvvPz/X678/txvia+Prue7nvtu68etIs\nY05Xs5dx+s02rdnP20PSPX0/Z+fOP/dHft7cufl9eXenr+vv2Z3+No/8vrv7Rl7Ob0eec3fr\njz+Ke313X679/Vhz91oZ7RmXyiSnVy+f/7ouOI8vZBmn327DbultD0ld8j7GQVhzqLpZdv/d\n+NZwM+nnPiz4mYh0bu9o+Bncmb37xUviWLPtnjTLPWdf96Gd15O3u76bH18Pm+aYfrsNu+Xs\nYxgq/9529svltvP/tnfcdvzLtR10/21/3jL/dr2+3bqluXmeiPT65vwWD4P0h5oVnnlpDClt\nFxv8fN567PTbdt3jpvml32zTmqzd5jGXLn3v7fHjp31Rc/djSTe3GX76BY+LdO7vf6g53hMu\nliGnf5pFbT+fjSauU+ph0/zSb7ZpbdaaQ1J749TlcDIJ7X77P6+Xr/fzmkj3EcKiSOeP4f5X\nNcMexsNMc0jy89ktnX4+bZpj+s02rc1ac0jyxZhI8izSn3tHvJgj/f3z2wwDz4NIj3d7tU7+\neFUz7KHP2mczsZ3kszskXZ43Hf/IJv1mm9Zl7dN9bD8i3TY9f18ec971382xr7d+6N08+ni3\nX6v/RzYviWYZsvaUz+6l7+PFpi83N51+s027Z+3kZofKTyI93WxpTxj9u3w8DMdf3/3ck9kM\n0s3SZ+2rtWEyR/rbLrz+Pm06/pFN+s02zQ2Lps2NnxeLN08inZqkfzyNArxLGPxT6y/vfu7J\nVzXDHsY8NwcfP5+3Hnu7nKardtfpH9mk32zT+qydnH864eO6IFKnxqlZxpvk3FPm49/y3c89\n6df87jZc5gIPjGlurqDz8/nZnP77fj6P5P+RS/rNi/R1v/G3OcH913/kSaTr1+3V7evSZHv6\n4tVe5n16/2zP4y7e/aInvZqby4n8ALCFXqPumm4vn/+6bL64ssH/I5P0mxUpCh+ny467ATZT\nl0gAkUAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQ\nCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQYKdIw2ecIqBZ6KMUhIg0/gCD\n0EcpCBDJjTfBIPRRChCpOOijFCBScdBHKdgrUvM1xiEFQQ36KAX7c33/QiL5poAY9JE68sl2\nsBHx1NNH4mxPqXzXCEUsHvVE0Ue7iSiS902TQhFrJV6i6CMp4onUfGP4dXEATidtJFqi6CMx\noonknTCfK0knbSRWougjORApAxDJPohkFH/igkg+NhdAmCPZZJI45kgezmKjWLUzyvQwward\niNWL1fXPI8WMWAxaIm1siCEQSSNiMSDSLPUN7RJELAedOdK2dhijtsWGFBELQmPVbksz0lWd\nF4iUAYhkH0TKAESyDyJlACLZB5EyAJHsg0gZgEj2QaQMQCT7IFIGIJJ9ECkDEMk+iJQBiGQf\nRMoARLIPImUAItkHkTIAkeyDSBmASPZBpAxAJPsgUgYgkn0QKQMQyT6IlAGIZB9EygBEsg8i\nZQAi2QeRMgCR7INIGYBI9kGkDEAk+yBSBiCSfRApDd7H1q1/vyQi2QeRkuCuw9P3bi5tnYiK\n+2gfiJQCN/70bq5snoR6+2gniJQCRFqvOJBk7Y2wZbqI9um6GpGOYLFNiKSLe/g3vblUKhEW\n+8himxBJlfHww6pdOBbbhEiqbBnHzRZLgsU+stgmRFIFkYoFkVTZMCGaKZWICvsoDETSJWiB\nFpHsg0gZgEgTLLYppkirp8hMJiQGbRIOnCyMl6gs+8himyKK5J5uHI2YK91y9zX8CUdLVJ59\nZLFN8URyL28eiZgl/cu98y5j2B9Erj1zcXPqI4ttQqS4DMchRJLDYpsQKSqjQ4hUOMyRYuJf\nEnQNf8LMkezDql1M7iKxalc+QSI9XHUZv+5sOXIcmkZJhMU+stimIJHc9cgeYuBNWIqIPEv1\nRNnuI4ttiimSWztwmUyIRWIO7a759ZHFNkUUqZkWLG9mMiEWibnYkGEfWWxTPJG85d7qllab\nl3jJgVHU5e/8+shimwIXGzYs5mbaSRLck9Mu1YkFjEHFfSRO3BOyVXZS59FdI5HniEj2iXpC\nNsPxtwD5iFRvH8kTJlI7CVgtkOOKkAAZiZRnH1lsU/AJWYl9xGRCBMhmjmS76lkstinBCdmQ\nujMjl1U721XPYrFNiCRJrKsBEGmCxTYhkiCunRqJDej8wMmw2EcW28QcSQ53nxjJm4RI9gle\ntRMYwBTWSYhUM/HOI6WImBREqhlEkoM5kg4W24RIkrBqp4LFNu0XSfDb0UwmxCKINMFimzgi\n5QAiTbDYJkQSI+LbshFpgsU2IZIUEmeol2Inoqg+isn+OZI3TVKr2z7O+xkpeBJK6qOocESS\nAZEqB5Fk2PLu+/DgccIar3oWi20Kvmh1X9mjdZvH3f+LFT0ZFvvIYpsQSYT2aMSqnRIW28QJ\nWRGizpAQ6QGLbTp0RNKr2zqIpInFNrHYcJz+6Bzv6SCSfYJEYmjncX/vRMyPm0ck+zC0O4jz\n/o9YRyqK6CMNEOkgiKSOxTYh0lEQSR2LbUKkw3RzpKhPBpEmWGxT4GKDdt2mif/Ndog0wWKb\nwo5I1a/auQnxq4teg8WqZ7HYJs4jhTB8IHHcS+y8+pKRbR9pg0j7cdf+s72VTEIk+3BCdj+I\nBE8Ertq5XUUP120LREqLxTYdEenwEzKZkC0wR0qKxTYFn0eSOCSZTMgmWLVLicU2IVIOINIE\ni20KPiFbp0h6B6FptbrVGal6FottClz+bi+LqW+xYVxj0G06ItmH80jbuTvUfemEasWalZmp\nOi8QaTO9QogkF12VuE8lYMtNLXPDpgJ1W6A/HhUkUvI+cv8pYk+kTUXd9Mexui3gypsjJe8j\nRFov6y3rzW2XlUjdJ6mqjBKe644YN2kfIdJ62eSdJIyTuSwqsO54cRFJ6Kkc2LIykZYnE5Hr\njhYXkYSeyoEtl0Vy/UVoWc+Rpqs+iVocTaTUfVS5SFsnCm7lGxoyEMl506JUx6OoiUrbR5WL\npF93Ku5vmBj/T9WMZCDS1qcSYcuVOEpnyCTo17prE0ntLCYiSWyegUjjeaMSRUreR5WLNEwa\nFjffMIfaXHci3MMcKV07IsVN3UdVi9Qnf/0SobVuykAkya+DOtSOWHHT9lHdIm0r2l15srj7\n5SDS1UIzow7tUvZRzSJ5Hq2ekO1uzPZT+j30NdNLhg20MvocKVUfIdJ1u0gSdavSv+ko9YBu\nhMWGkkXacImQWN2auIcFBgOtRKSKRRKtW5OKREpedc0ibV1sEK1bE0TSq7pqkdauF45RtyqT\nOZKJRiJSkSKJfSGQhX30FdNVOwMgUpki6dddOYiESLoRw3BPpG7RA4iESLoRgxjnROO/1G2a\ngkiIpBsxBH+Vztk0qVyRVIn7VCJsmS5iCIiUrmpEUq47JoiUrmpEUq47KsyRklVd/RxJZmez\nsrsqv3btB5EKFcn1/2vVXTmIVKZIzvunU3flIBIiydQdB7NDuUcQCZFk6o6Cs3Vl6gKIVKZI\nZcyRBo+MvFdiAUQqVKSrzHgIkTaCSKWKpF13DBApfdWIpFx3FJgjJa8akZTrjgOrdqmrrlkk\nwQsArO+/ZkCkAkVKUrdkpXavBJoFkRBJN+KWOkeNsjEJkUoVKdvlbyPfHLYTRCpUJLez6OG6\nxUAkU7eI5uAAAAfGSURBVFVXLpJ7uid23WIgkqmqEWln2aN1y8EcyVLViLSz7NG6BWHVzlDV\nlYvUz5GyFClHEKlMkaRe1BFpI4hUpkj6dctUl9mAbgSREEk34mJt/QcE5WcSIiGSbsSlytw1\nW5MQqVCRcrxoFZEMVv30OWhRiftUAraUahEibaRYkcKw2KZ6RGKOlFvVs1hsU0UisWqXWdWz\nWGzTkROyinVXDiLZJ+Jiw+pW8TtJcbIZk3gtN9BHhRBvaOeeboTXHYZz/QpDrpOjO9Eanr6P\niiGaSBtGgpE7afyaltxNitXu9H0UhMU2FSyS6/9DpA1xEekg0RYbkncSIu2Ji0gHOXT197bt\nE42/3fXqj+0y9og50hSLbYp5rV3qFSHHqt165BxX7Sy2KaZICSI+xM/YnQmcR7KP/kWrCoeI\n3I9Aj6g/kxIO48oErtq51aIbAsebQ/f/FYLCYoN21cVxQKTlshtezCJ1kivOpGgiJeujQ1hs\nU/B5pNVDUjvVl6p7F4i0I26iPjqExTZFFel+kY5A3btApF1xk/TRISy2KfiE7DaR2huz/cQc\naSPR50j6fXQEi20KXP526+PrlBPZ0hacWGyYYLFN8c4jZdpJJkEk+5R8QrYYOCFrnwCR+imq\nYt2Vg0j22S/ScArpcI7FO6nUs/GINMFim/aL5MafR5+QdEL6D9yymekDINIEi20qSSR3P8FY\nnkmINMFimwJFcv49CnVvDIdIJVU9i8U2IVIOINIEi20qSSTmSGVVnRdBq3YyHrFqtxVEsk/I\neSQ3/lSqu3IQyT5c2ZABiDTBYpsKEen+YUFi8YyBSBMstqkMkZz3r0QQaYLFNhUhUudQwSYh\n0gSLbUKkHECkCRbbhEg5gEj2KUEk5khFVp0XRYjEql2JVedFliJ11wH1Pwo26A4iTbDYptxE\nGi6lc+OPsEg5gUgTLLYpM5EGe0aRil5luINIEyy2KS+RvItlEan4qmex2CZEygFEmmCxTVmK\nxBypiqrzIiuRemlYtauh6rzIS6QKpHkFItknM5HqBJEmWGwTIuUAIk2w2CZEygFEmmCxTYiU\nA4g0wWKbECkHEGmCxTYhUg4gkn0QKQMQyT6IlAGIZB9EygBEmmCxTYiUA4g0wWKbECkHEGmC\nxTYhUg4g0gSLbYonUv+Wh4WrTE0mxCKxEpVpH1lsU2SRxh8CEeslqkj0kQhRRXLLJemkjcQU\niT6SAZEyAJHsg0gZgEgTLLYpokjd1yIvFVyL6E2C63xnbE80kY73UQostinq8rdz3kve/ogP\nr5cm06dDxKd+sI+SYLFNhs8jeS+VK6+axcN5pAkW25RAJDeyoT5EuiZ45lv7SKcJu0jW3ghb\n3rdvxwzhJ/sQaSDaMz/aRzAQUaTrRIP9EZkj9cQT6Xqwj6DH8vI3q3Z3WP62j2WR4A4i2ceG\nSHUfcFZBJB+b+4qJOVLlU6BVmCN5OIuNirr8vbog6Sa/LWbHCPFSs7mPzLDsfTosnJBFpBU4\nITuCSPMREWkFRPKob2i3PSJzpGUQyae2xYY9EVm1WwSR7GNDJFgEkeyDSBmASPZBpAxAJPsg\nUgYgkn0QKQMQyT5JRYKNiKeePhJne0ojdleUuvUKaVYFuYNIJqqC3EEkE1VB7iCSiaogdxDJ\nRFWQO4hkoirIHUQyURXkDiKZqApyB5FMVAW5g0gmqoLcod8BBEAkAAEQCUAARAIQAJEABEAk\nAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAGSirTrE/i8YvurCaglKDeBzwiyJ/X7\nkYJ2VpVqQr76iu9Wq5bkH0C9uwFuZ5HAanbXc6AqyJ/kvb57nLa3SLCvoblJnlJIQPJeDxnb\nBWytMRc7VgyyJnWvx9/BtUVKnVFIQupuRyQoghTd7n3xzPbqgwqNW6uJhEd1krbfNV7zdUXC\no0pJe0JWo5iqSHhUK6lPyCqUCz5LGnZCFqok5QnZnd/SORbcX9H+SgLqCX9GkD30OoAAiAQg\nACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIg\nEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAALYFcn17Pk2suvc\nM/Lu3fI59+66FAzgEdt7yt7vNprf0k1vrYV0D78BlrG9p0QQadvXZyIS7MP2ntKLNIzGxu+R\ndW54aPjTGwj6G/pjNF8oT9Nhq+7GEMj5sfjuI5jF9p7R78D97XHf7v+NMrx8fPixLNKwlb/5\nq3/G8wXJsL1juOnPhRvXp/3/1YYzIr2+4WZCADxje+84JlIfxK0ekaZbIRLsxvbe8ehJ/x2t\njyL5909F6u9eGdpNtnoQafhiWOZIMIvtPePlEen5nsn97vEOkaHd9bE8gI/tHUN+jnQ/AF1f\nHddWhnaT3wATbO8YD56Mkjwcetzi4/4cybvr4cG5OdJzYIAnbO8YjyK9OI80/fPpPFJ/Rsh7\nnt1dznvwYSs3BnJPsQBewZ4BIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiA\nSAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgE\nIMD/AUbbLHu0QfKEAAAAAElFTkSuQmCC",
      "text/plain": [
       "Plot with title \"Box Plot\""
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "par(mfrow = c(2,2));\n",
    "plot.ecdf(data);\n",
    "hist(data);\n",
    "qqnorm(data);\n",
    "boxplot(data)\n",
    "title(\"Box Plot\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "id": "attempted-shower",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "\n",
      "  The decimal point is at the |\n",
      "\n",
      "  64 | 300\n",
      "  66 | 23333\n",
      "  68 | 00888777\n",
      "  70 | 344444442222\n",
      "  72 | 0000000777777555555555555\n",
      "  74 | 33333333700000004688888\n",
      "  76 | 5555555226\n",
      "  78 | 0888555\n",
      "  80 | 355266\n",
      "  82 | \n",
      "  84 | 3\n",
      "\n"
     ]
    }
   ],
   "source": [
    "stem(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "sufficient-geometry",
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "4.0.3"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}
